﻿Module Module1
    Sub Main()
        For Each trackingNumber As String In GetTestTrackingNumbers()
            Dim autoNumber As New AutoTrackingNumber(trackingNumber)
            Console.WriteLine("Tracking Number: " + trackingNumber)
            Console.WriteLine("    Determined to be """ + autoNumber.ShipmentCompany.ToString() + """")
        Next
    End Sub

    Private Function GetTestTrackingNumbers() As List(Of String)
        Dim trackingNumbers As New List(Of String)

        ' Test FedEx Ground Tracking Numbers
        trackingNumbers.Add("761737960211866")
        trackingNumbers.Add("128586215004217")
        trackingNumbers.Add("009222300750626")
        trackingNumbers.Add("012345678983")
        trackingNumbers.Add("489129915002992")

        ' Test UPS Tracking Numbers
        trackingNumbers.Add("1ZX295600310872434")

        ' Test USPS Tracking Numbers
        trackingNumbers.Add("9101123456789000000013")
        trackingNumbers.Add("71969010756003077385")
        trackingNumbers.Add("9101901050258001552202")

        Return trackingNumbers
    End Function
End Module
